Cluster Analysis

MDS plot. 10 years of data. Parameters include: Sonde parameters, TOC, NH3, and NO3, TP.

Dendrograph

Boxplots

Site Comparison



Seasonal Trends


oc_seasonal <- crosstalk::SharedData$new(oc_data)

crosstalk::bscols(
  crosstalk::filter_select(
    "oc_site",
    "Select a Site:",
    multiple = FALSE,
    sharedData = oc_seasonal,
    ~ sitecode
  ),
  crosstalk::filter_select(
    "oc_seasonal_param",
    "Select a Parameter:",
    multiple = FALSE,
    sharedData = oc_seasonal,
    ~ parameter
  )
)
plotly::plot_ly(
  data = oc_seasonal,
  y = ~ reading_num,
  x = ~ month,
  type = 'box'
)

Timeseries

oc_data2 <- oc_data %>% arrange(collection_date)
oc_seasonal2 <- crosstalk::SharedData$new(oc_data2)

crosstalk::bscols(
  crosstalk::filter_select(
    "oc_site2",
    "Select Sites:",
    multiple = TRUE,
    sharedData = oc_seasonal2,
    ~ sitecode
  ),
  crosstalk::filter_select(
    "oc_seasonal_param2",
    "Select a Parameter:",
    multiple = FALSE,
    sharedData = oc_seasonal2,
    ~ parameter
  ),
    crosstalk::filter_select(
    "oc_year",
    "Select a Year:",
    multiple = FALSE,
    sharedData = oc_seasonal2,
    ~ year
  )
)
plotly::plot_ly(
  data = oc_seasonal2,
  y = ~ reading_num,
  x = ~ month,
  type = 'scatter',
  mode = 'lines+markers',
  color = ~sitecode
)

T-Tests


z <- make_table(178)

DT::datatable(make_table(178)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(179)

DT::datatable(make_table(179)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(181)

DT::datatable(make_table(181)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(182)

DT::datatable(make_table(182)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(183)

DT::datatable(make_table(183)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(189)

DT::datatable(make_table(189)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(192)

DT::datatable(make_table(192)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(196)

DT::datatable(make_table(196)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(877)

DT::datatable(make_table(877)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(213)

DT::datatable(make_table(213)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )


z <- make_table(75)

DT::datatable(make_table(75)) %>% 
  DT::formatStyle(
    colnames(z[2:8]),
    color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
    backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
  )